home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr11 / gedvw105.zip / SAVE-ALL.PRG < prev    next >
Text File  |  1995-03-05  |  418b  |  26 lines
  1. *
  2. *    Generates a file of the default report format for all
  3. *    records in the current GEDCOM file.
  4. *
  5. *    for GEDView 1.05
  6. *    michael@genealogy.emcee.com - 3 Mar 1995
  7. *
  8. set format on
  9. set #outfile temp1
  10. show SAVING TO $OUTFILE
  11. remember record
  12. go 1
  13. save $OUTFILE record
  14. :continue
  15.     ifescape
  16.         goto the-end
  17.     next
  18.     iffailed
  19.         goto the_end
  20.     append $OUTFILE record
  21.     goto continue
  22.  
  23. :the_end
  24.     go record
  25.     end
  26.